10 POKE56,32:CLR:DIMD%(30)
15 DV=PEEK(186):IFDV<8THENDV=8
20 POKE53280,0:POKE53281,0
30 D=0:FORI=8TO30:CLOSE2:OPEN2,I,2:CLOSE2:IFST=0THEND=D+1:D%(D)=I
40 NEXT:BB=9*4096+12*256:WIPE=49760
50 DW=49152:CM=DW+256*5:BOX=CM+15:GW=DW+3*256
60 FORI=1TO6:READDP(I):PC(I)=DP(I):NEXT:POKE650,128:SYSBOX,0,39,0,9,32,0
61 SYSBOX,0,39,0,24,255,3:SYSBOX,0,39,0,24,255,14:SYSBOX,0,39,0,24,255,6
65 POKE53265,11:PRINT"[147]"
70 SYSBOX,0,39,1,1,228,13:SYSBOX,0,39,2,2,160,3:SYSBOX,0,39,3,3,227,5
80 PRINT"[159]";:SYSCM+27,2,"[196] [193][160][201][160][211][160][217][160]-[160][199][160][210][160][193][160][198][160][201] [216]"
90 SYSBOX,0,39,5,18,127,14:SYSBOX,1,38,19,19,64,7:SYSBOX,1,38,4,4,64,7
100 SYSBOX,0,0,4,4,112,7:SYSBOX,39,39,4,4,110,7:SYSBOX,0,0,19,19,109,7
110 SYSBOX,39,39,19,19,125,7
120 SYSBOX,0,0,5,18,93,7:SYSBOX,39,39,5,18,93,7
130 SYSBOX,7,30,8,14,255,6:SYSBOX,8,31,7,13,160,3
140 SYSCM+24,9,8,"[211]ETUP [208]RINTER [195]ODES"
150 SYSCM+24,9,10,"[204][207][193][196] AND [208]RINT [199]RAPHIC"
160 SYSCM+24,9,12,"[210]ETURN TO [204][207][193][196][211][212][193][210][146][153]"
170 SYSCM+18,168:SYSCM+27,22,"[195][210][211][210]/[210][197][212][213][210][206] [212]O [211]ELECT":SYSCM+18,160
180 SYSBOX,0,39,0,24,255,0:POKE53265,27
190 FORI=0TO19:SYSBOX,19-I,20+I,0,24,255,3:NEXT:SYSCM+21,160
200 SYSCM+21,160:IT=1:GOTO250
210 GETA$:IFA$<>CHR$(13)THENIFA$<>""ANDA$<>"[145]"THEN210
220 IFA$=CHR$(13)THENONITGOSUB270,470,620:GOTO200
230 IFA$=""THENIT=IT+1:IFIT>3THENIT=1
240 IFA$="[145]"THENIT=IT-1:IFIT<1THENIT=3
250 SYSCM+21,160:SYSBOX,8,31,IT*2+6,IT*2+6,255,1:GOTO210
260 MS$="[208]LEASE [211]ELECT [196]RIVE":GOSUB720:SYSBB,9,15,27,D,7+128,129,0
270 SYSCM+21,168
280 SYSCM+24,0,20,"[146][159]    [196]EFAULT SETTING IS FOR [195]OMMODORE":PRINT
285 PRINT"    [196][208][211] 1101 [196]AISY WHEEL PRINTER.
290 [153]"    (null)SE DEFAULT PRINTER CODES? ((null)OPEN/(null)OPEN)"
300 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]300
310 [139]A$[178]"Y"[167][129]I[178]1[164]6:PC(I)[178]DP(I):[130]:[142]
320 [158]CM[170]21,168:[158]CM[170]24,0,20," OPENVALNTER (null)(null)RIGHT$ ESCAPE CODE #1: ":[158]GW,1,13,3
330 PC(1)[178][197](W$):[158]CM[170]24,0,21," OPENVALNTER (null)(null)RIGHT$ ESCAPE CODE #2: ":[158]GW,1,13,3
340 PC(2)[178][197](W$):[158]CM[170]24,0,22," OPENVALNTER (null)(null)RIGHT$ ESCAPE CODE #3: ":[158]GW,1,13,3
350 PC(3)[178][197](W$):[158]CM[170]27,24,"LENORRECT?  ((null)/(null))"
360 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]360
370 [139]A$[178]"N"[167]320
380 [158]CM[170]21,168:[158]CM[170]24,0,20," OPENVALNTER LEFT$(null)RIGHT$ ESCAPE CODE #1: ":[158]GW,1,13,3
390 PC(4)[178][197](W$):[158]CM[170]24,0,21," OPENVALNTER LEFT$(null)RIGHT$ ESCAPE CODE #2: ":[158]GW,1,13,3
400 PC(5)[178][197](W$):[158]CM[170]24,0,22," OPENVALNTER LEFT$(null)RIGHT$ ESCAPE CODE #3: ":[158]GW,1,13,3
410 PC(6)[178][197](W$):[158]CM[170]27,24,"LENORRECT?  ((null)/(null))"
420 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]420
430 [139]A$[178]"N"[167]380
440 MS$[178]"(null)ECONDARY ADDR (0-9) 0 = DON'T CARE":[141]670:[139]A$[179]"0"[176]A$[177]"9"[167]440
450 SA[178][197](A$)
460 [142]
470 [158]CM[170]21,168:[141]730
480 [158]CM,"$:*=P",DV,53248,11,11,10,5,7
490 [139][197](E$)[167]MS$[178]E$:[141]670
500 [139]F$[178]""[175][197](E$)[178]0[167][142]
510 [158]WIPE:MS$[178]"(null)OADING "[170][199](34)[170]F$[170][199](34):[151]787,1:[141]670
520 [158]CM[170]30,F$,DV,8192:[158]CM[170]21,160:[141]790:[158]CM[170]21,160
530 MS$[178]"(null)RINT GRAPHIC? ((null)/(null))":[141]670:[139]A$[179][177]"Y"[167] 610
540 [158]49161:MS$[178]"LENOUNTING (null)IXELS...":[151]787,1:[141]670:[158]49155
550 PIXELS[178][194](252)[172]256[170][194](251):[139]PIXELS[179][178]32000[167]580
560 MS$[178][196](PIXELS)[170]" DOTS.  (null)(null)(null) ="[170][196](64000[171]PIXELS)[170]" (null)(null)? ((null)/(null))":[141]670
570 [139]A$[178]"Y"[167][158]49158
580 MS$[178]"(null)ET TOP OF FORM/(null)VAL(null)(null)(null)(null)/(null)":[141]670:[139]A$[179][177][199](13)[167][142]
590 [158]CM[170]21,168:A$[178]"JUST PASSIN'":[141]800:[160]4
600 [158]49152,PC(1),PC(2),PC(3),PC(4),PC(5),PC(6),SA:[160]4:[141]860:[142]
610 [158]CM[170]3,11,11,10,5,7:[137]490
620 MS$[178]"(null)UIT?  ATNRE YOU SURE?  ((null)/(null))":[141]670:[139]A$[179][177]"Y"[167] [142]
630 [151]56,160:[158]CM[170]42,"R:HELLO CONNECT=HELLO CONNECT",8
640 [139][197](E$)[179][177]63[167][153]"LOAD":[128]
650 [153]"LOADSTOP":[158]CM[170]33,"HELLO CONNECT",8:[128]
660 [131] 27,30,2,27,31,4:[143] DPS1101
670 [158]CM[170]18,176:[158]CM[170]15,1,36,11,13,255,6:[158]CM[170]15,2,37,10,12,160,7
680 [139]MS$[178]""[167]MS$[178]"(null)RESS A KEY..."
690 [153]"SYS";:[158]CM[170]27,11,MS$:[139][194](787)[167][151]787,0:[142]
700 [151]198,0:[146]198,15:[161]A$:[158]CM[170]21,168:[142]
710 [158]CM[170]21,176:[141]670:[142]
720 [153]"";:[158]CM[170]18,176:[158]CM[170]15,0,39,23,23,160,1:[158]CM[170]27,23,MS$:[142]
730 [139]D[178]1[167][142]
735 [158]CM[170]18,184:[158]CM[170]15,14,26,9,9[170]D[170]1,255,6:[158]CM[170]15,15,27,8,8[170]D[170]1,160,7
740 [153]"SYS";:[129]I[178]1[164]D:[158]CM[170]24,20,8[170]I,[196](D%(I)):[130]
750 MS$[178]"(null)LEASE (null)ELECT STR$RIVE":[141]720:[158]BB,9,15,27,D,7[170]128,129,0
760 [158]CM[170]21,184:[161]A$:DV[178]D%([197](A$)):[160]2:[159]2,DV,2:[160]2
770 [139]ST[167][158]CM[170]21,18:[137]730
780 [158]CM[170]21,184:[142]
790 [143] MS$="(null)IEW GRAPHIC? ((null)/(null))":GOSUB670:IFA$<>"Y"THENRETURN
800 [151]53265,59:[151]53272,24:FG[178]3:BG[178]0
810 [158]CM[170]15,0,39,0,24,FG[170]BG[172]16,15:[151]198,0:[139]A$[178]"JUST PASSIN'"[167][142]
815 [146]198,15:[161]A$
820 [139]A$[178][199](13)[176]A$[178]" "[176]A$[178]"Q"[167]860
830 [139]A$[178]"INPUT"[167]FG[178](FG[170]1)[175]15:[139]FG[178]BG[167]830
840 [139]A$[178]"LET"[167]BG[178](BG[170]1)[175]15:[139]BG[178]FG[167]840
850 [137]810
860 [151]53265,27:[151]53272,23:[142]
870 [144]
10000 [160]15:[159]15,8,15,"S:DAISY GRAFIX":[148]"DAISY GRAFIX",8